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-REM % 


IDENTIFICATION 


PRODUCT CODE: AC-8568C-MC 
PRODUCT NAME: CZDNACO DN11 DIALEX 
DATE : MAY, 1978 
MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 


NOTICE - SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
IPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 
COPYRIGHT (C) 1971,1978 BY DIGITAL EQUIPMEN CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION 


DIGITAL PDP UNIBUS MAS SBUS 
DEC DE CUS DEC TAPE 
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ABSTRACT 

THE DN11 DIAGNOSTIC CONSISTS OF TWO PARTS. THE FIRST IS A 

ate OF INCREMENTAL TESTS WHICH STATICLY CHECK OUT THE 

DN11 USING THE MAINTENANCE MODE. THE SECOND PART IS THE ~ LINE 

EXCERCISER WHICH ALLOWS THE USER TO DIAL ANY GIVEN PHONE I 

HIS DIALING RANGE, UPON THE Sy heal OF THE CALL THE PROGRAM 

WILL TERMINATE THE CALL AND TRY AGAIN 

REQUIREMENTS 

EQUIPMENT 

pe acetals OR WITHOUT A HARDWARE SWITCH REGISTER 

DN11 (MAX.OF4 USED AT ONE ANY TIME) 

STORAGE 

DIALEX OCCUPIES THE FIRST 4K OF CORE. 

LOADING PROCEDURE 

METHOD OF LOADING DIALEX TAPE 

PROGRAM FORMAT ABSOLUTE 


A. VERIFY THE BOOT LOADER IS IN MEMORY 


B. SET SWITCH REGISTER EQUAL TO *500 
MEMORY SIZE * 
4K 17 


DEPRESS LOAD ADDRESS 
DEPRESS START 
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4. STARTING PROCEDURE 


LOAD ADDRESS 200. 

SET SWITCH REGISTER CORRESPONDING TO SEC 5.2 

aemiect ctaat SOFTWARE SWITCH REGISTER LOADING- 

TF The sOr TUM SWITCH REGISTER IS SELECTED THEN THE FOLLOWING 
SWR=XXXXXX NEW= (REFER TO SECTION 5.2 FOR OPTIONS) 


SCOPE LOOP STARTING PROCEDURE 


LOAD ADDRESS 204. 
SET THE SWITCH REGISTER EQUAL TO THE ADDRESS 
OF THE DN11. 
weeeWHEN SOFTWARE SWITCH REGISTER IS SELECTED THE 
OPERATOR WILL BE ABLE TO LOAD THE DN11 ADDRESS AFTER DEPRESSING START. 
C. DEPRESS START. 
- SET SWITCH TO CORRESPOND TO SEC. 5.3 
E. DEPRESS CONTINUE. 
waeeIF THE SOFTWARE SWITCH REGISTER IS USED DEPRESS CONTINUE, 
THE MACHINE WILL THEN ASK FOR SOFTWARE SWITCH REGISTER CHANGE 
BY TYPING THE FOLLOWING: SWR=XXXXXX NEW= (REFER TO SECTION 
5.2 FOR OPERATOR OPTIONS) ***« 


RESTARTING AT LOC. 200 
teal AT LOC. 200 WILL AUTOMATICALLY USE THE ADDRESS 


AND VECTOR ENTERED AT THE INITIAL START- 
IF IT IS DESIRED, TO ENTER A NEW ADDRESS UPON RESTART, 


CLEAR LOCATION 1064 AND START AT LOC. 200. 
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5. OPERATING PROCEDURE 


AT THE INITIAL START OF THE PROGRAM THE OPERATOR WILL BE 
ASKED FOR THE ADDRESS OF THE FIRST DN11, AND ITS VECTOR ASSIGNMENT. 


wee TF SOFTWARE i REGISTER IS SELECTED THEN THE FOLLOWING 
WILL BE TYPED FIRST: 
SWR=XXXXXX NEW= (REFER TO SECTION 5.2 FOR OPTIONS) 
DN11 REGISTER ADDRESS ?XXXXXX 
VECTOR ASSIGNMENT ?XXX 
DIALING PROCEDURES 
THE OPERATOR WILL BE _— FOR A PHONE NUMBER FOR EACH DN11, 
MUM NUMBER OF DN11°S IS REACHED FOR THE SYSTEM 
THE OPERATOR MUST DEPRESS THE CARRIAGE-RETURN KEY WITHOUT 
DEPRESSING ANY OTHER CHARACTER. 
PHONE #1? XXXXX 
PHONE #2? XXXXXX 
PHONE #3? XXXXXX 


PHONE #4? XXXXXX 


NOTE: DO NOT TYPE <*G> DURING THE INPUTING OF PHONE NUMBERS 
OR ERROR WILL OCCUR. 
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5.2 CONTROL SWITCH SETTINGS 


F THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 


OwS 
HARDWARE SWITCH REGISTER. 

DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 


CONTROL : 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. iad Meese THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING 


1) TYPE CONTROL G <*G>; THIS WIL! ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE *"NEW="" HAS — TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE T 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 


NOTE: m+ TO THE USE OF RESET INSTUCTION IT MAY BE NECESSARY TO DEPRESS 
> THAN ONCE. THIS IS CAUSED BY THE RESET INSTRUCTION NOT ALLOWING 
THE LOADING OF THE TTY RECEIVER BUFFER 
DURING THE RESET EXECUTION. 
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SET=HALT ON ERROR 
RESET=CONTINUE AFTER REPORTING ERROR 
S 


ET=LOOP ON STATIC TEST SUB-SET 
ESET=DO EACH STATIC TEST SUB-SET 15 TIMES. 


R 

SET=DELET TYPE-OUT 
RESET=REPORT EACH ERROR 
S 


ET=TERMINATE CALL BY LOWERING CRQ (CALL REQUEST) 
RESET=TERMINATE CALL BY ISSUING RESET 


BIT11 SET=801 NEEDS EON TO COMPLETE CALL 
BIT11 RESET=EON NOT NEEDED TO COMPLETE CALL 


SR BIT10 SET=LOOP ON ON-LINE TEST 
SR BIT10 RESET=SEQUENCE THROUGH PROGRAM 


SR BIT9 SET=LOOP ON ALL STATIC TESTS 
SR BITS RESET=SEQUENCE THROUGH PROGRAM 


SR BIT8 SET=RUN STATIC TEST ON DN11 SELECTED BY SRO-1 
SR BIT8 RESET=PROGRAM WILL SEQUENCE THROUGH ALL DN11°S 


SR BIT? SET=DELETE TTY CONVERSATION FOR DIALING SEQUENCE 
SR BIT7 RESET=ENTER TTY CONVERSATION FOR DIALING SEQUENCE 


SR 0 =SELECT DN11 FOR STATIC TEST 
RESET=FIRST DN11 
=SECOND DN11 


SET 
RESET=THIRD DN11 
SET =FOURTH DN11 
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5.3 SCOPE LOOP SWITCH SELECTION 


IN_THE SCOPE LOOP THE USER MAY SET ANY OR ALL OF THE DN11 STATUS 

BITS IN THE MAINTENANCE OR DYNAMIC MODE. IF THE USER SETS THE BITS 

IN THE DYNAMIC MODE THE PROGRAM WILL AUTOMATICALLY STICK IN THE 

CORRECT TIME DELAYS FOR ig PHONE LINE. 

sxeexeREFER TO SECTIONS 4.1 AND 5.2 FOR SOFTWARE SWITCH REGISTER OPERATION***«s 


THE DETAILED DESCRIPTION OF DN11 STATUS BITS 
NAME DESCRIPTION 


CALL REQUEST (FCRQ) CONTROL LEAD TO ACU. THIS BIT STARTS 
THE AUTOMATIC CALLING SEQUENCE. 
(WRITE ONLY) 


DIGIT PRESENT (FDPR) CONTROL _LEAD TO THE ACU. THIS 
BIT MUST BE SET BY THE PROGRAM 
hag IT LOADS THE NEXT DIGIT 
(IN RESPONSE TO A PND REQUEST) 
TO_INFORM THE ACU TO CONTINUE 
WITH DIALING. THE INTERFACE 
AUTOMATICALLY wey THIS BIT 
WHEN THE ACU CLEARS PND TO 
INDICATE ACCEPTANCE OF THE DIGIT. 
(READ/WRITE) 


MASTER ENABLE (MINAB) ALLOWS THE PROGRAM TO DISABLE THEN 
REENABLE ALL 4 ACU INTERRUPTS EASILY 
WITH ONE BIT. THIS BIT IS CONNECTED 
FOR ONLY ONE OF THE FOUR POSSIBLE 
LINES WHICH MOUNT IN ONE SYSTEM UNIT. 
(READ/WRITE) 


MAINTENANCE (MAINT) THIS BIT, WHEN SET, ALLOWS CHECKING 
OF THE INTERFACE WITHOUT A CONNECTED 
ACU. IT ALLOWS FCRQ TO BE READ AND 
SWITCHES THE ACU ey LINES-~ 
PND ,DSS,PWI AND ACR TO THE OUTPUT OF THE 
DIGIT LINES FOR TESTING PURPOSES. 
BIT DIGIT ACU LINE CTL BIT # 
08 NB1 F 0 


PND 4 
09 NB2 DSS FDSS 05 
10 NBS PwI PwWO 13 
11 NB& ACR FACR 14 
ALSO FORCES CRQ (TO ACU) OFF AN 
FORCES FDLD (BIT 12) ON. (READ/WRI TE) 


PRESENT NEXT DIGIT CONTROL LEAD FROM THE ~‘s THIS IS 
(F PND) : REQUEST BY THE ACU FOR T 0 
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05 DATA SET STATUS (FDSS) ee LEAD FROM ACU. THIS IS A 
STATEMENT BY THE ACU ee rie 


PARTY HAS WERED ,4 

ASSOCIATED ae SET NOW HAS CONTROL OF THE 

gg LINE. IT IS yo ply OY a3 SETTING 
OF DONE TO OBTAIN AN INTERRUPT. IT 

REMAINS SET at AFTER THE END OF THE 

CALL. (OR UNTIL THE DATA_ TERMINAL 

READY LEAD 70 THE ASSOCIATED MODEM IS 

DROPPED WHICH THEN DROPS FDSS). 


IF THE ASSOCIATED MODEM ANSWERS A 

CALL WHILE THE DIALER iS IN USE 

(CRQ=1) THEN DSS WILL BE ENABLED AND 
DONE SET. IF INTERRUPT ENABLE IS SET 
THERE WILL BE AN INTERRUPT. (READ ONLY) 


INTERRUPT ENABLE THIS BIT ALLOWS THE SETTING OF DONE 

(INTENB) TO CAUSE AN INTERRUPT IF THE MASTER 
ENABLE BIT (BIT O2 LINE #1 OF A 
SYSTEM UNIT) IS SET. (READ/WRITE) 


DONE oot BIT, IS SET TO INDICATE THAT THE 
DONE WIT EVIOUSLY 


NEW DATA, USUALLY THE NEXT DIGIT INA 
SEQUENCE TO BE DIALED. 
THE CONDITIONS G oe SET DONE ARE LISTED 


(CRQ MUST BE A 

1. TRANS. OF PND TO ONE (AFTER LAST 
SET OR PREV. DPR SET) 

2. TRANS. OF DSS TO ONE (AFTER LAST 
DPR OR EON) 
TRANS. OF ACR TO ONE (IF TIMEOUT 
et pg IME ) 
TRANS. OF PLO TO ONE (IF POWER 
SWITCHED OFF) (READ/WRITE) 


068-11 DIGIT BITS (NBI-4) THESE FOUR BITS ARE CONTROL LEADS TO 
THE ACU. THESE LOW ORDER BITS OF THE 
SECOND BYTE MAKE UP THE BCD DIGIT TO 
BE DIALED. SINCE THE HIGH-ORDER FOUR 
ARE READ ONLY, IT DOESN*T MATTER WHAT 
IS IN THEM DURING A aos 

PROGRAMMER MAY USE T 
IN MAINT MODE. THES 
THE FOUR CONTROL LI THAT CAN CAUSE 
INTERRUPTS. BI FOR DESCRIPTION. 
(READ/WRITE) 
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12 DATA LINE OCCUPIED THIS BIT IS SET BY THA ACU WHENEVER 
(FDLO) THE L THE TE 


HE TRIES TO USE IT FOR THE NEXT ONE. 
(READ ONLY) 


NOT USED 


ABANDON CALL AND RETRY A CONTROL LEAD FROM THE ACU. 
(ACR) THIS BIT IS st BY THE ACU WHENEVER 
AN INTERNAL TIMER TIMES OUT. THE TIMER IS 
ty BY THE ACU WHENEVER IT GIVES po 
AND IS FOR DETECTING WRONG NUMBERS 
SIGNALS. IT IS INHIBITED By THe 


TS A_TIMER TO DETECT WRONG 
NUMBERS AND BUSY SIGNALS. 


POWER IN (PwI) + BIT IS NORMALLY ZERO AND IS SET BY 


A CALL IS_IN PROGRESS 
IME, DONE IS SET. (THIS CAUSES 
AN INTERRUPT IF ITENB AND MINAB=1). 


(READ 





CZDNA-C, 
CZDNAC .P11 


DN11 DIALEX 
09-MAY~7. 


6.1 
6.1.1 


6.1.2 


6.1.3 


6.2 


6.2.1 


6.3 


6.4 
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L 


ERROR REPORTS 

XXX ERROR COUNT XXX DN11 

EQUAL TO THE ERROR TAG IN DEFINES WHICH DN11 FAILED THE 
THE LISTING. THIS aes STATIC TESTS. THIS IS EQUAL 
THE USER TO FOLLOW THE TO THE ADDRESS ASSIGNMENT. 
EXACT CODE THAT FAILED. 

XXXXXK GD DATA XXXXXX BD DATA 

THIS EQUALS THE DATA THIS EQUALS THE DATA READ FROM 
LOADED INTO A REGISTER A REGISTER BY THE PROGRAM. 

BY THE PROGRAM. 

XXX ERROR COUNT XXXXXX DNCSR XXX DN11 
EQUAL TO THE ERROR CONTENTS OF DN11 DEFINES WHICH 
TAG_IN PROGRAM STATUS REGISTER DN11 THAT FAILED 
LISTING AT THE TIME 


PROGRAM TIMED OUT UNABLE TO COMPLETE CALL 


THIS MESSAGE IS REPORTED AFTER A PERIOD OF TIME HAS PASSED IN 
+ ia HAD EXPECTED TO HAVE RECEIVED DATA SET STATUS 
THE 801 IS OFF LINE 


THIS MESSAGE IS REPORTED AT THE START OF THE STATIC TEST 
WHENEVER THE DN11 IN USE HAS NO 807 DAILING UNIT CONNECTED TO IT. 
THE TESTS THAT DO NOT NEED AN 801 WILL BE EXECUTED. 


POWER FAIL OCCURRED 


THIS MESSAGE IS REPORTED IN THE RESTART SEQUENCE OF Pte POWER 
FAIL ROUTINE. WHENEVER A POWER FAIL HAS OCCURRED THE PR 

TRAPS TO 24 AND RESETS THE VECTOR AND HALTS. ON THE RESTART 
SEQUENCE THE PROGRAM REPORTS THE MESSAGE AND WAITS TWO SECONDS 
4 gh A PHONE LINES TO SETTLE DOWN, THEN IT JUMPS TO THE START 


END 
THIS MESSAGE IS REPORTED AT THE END OF EACH PASS OF THE PROGRAM: 


SEQ 0011 


CZDNA-C, 
CZDNAC .P 


DN11 DIALEX 
P11 09-MAY~7; 


- 
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TIME 
AMOUNT OF TIME TO RUN STATIC TEST 1.5 MIN. 
AMOUNT OF TIME TO RUN ON-LINE TEST 3 MIN. 


RESTRICTIONS 


THE POWER FAIL CAPABILITY OF THIS DEVICE MUST ONLY BE 
PERFORMED IN THE ON-LINE TEST. 


**RECOVERING FROM ERROR HALTS WITH A SOFTWARE SWITCH REGISTER** 
IF THE SOFTWARE SWITCH IS TO BE CHANGE AFTER A HALT 

THEN THE OPERATOR SHOULD DEPRESS A <*G>BEFORE DEPRESSING 

THE CONTINUE SWITCH. 


LISTING 


SEQ 0012 
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; CZDNA-C 
:DZDNAA OBSOLETED MD-11-D9J 


:DN ALEX 
:COPYRIGHT 1976,1977, gr Sys EQUIPMENT CORP., MAYNARD, MASS. 01754 
RELEASED 21 MAY 76 oY AM C N 
;REV B RELEASED BY R KIMBALL, AUGUST , 1977. 

: SUPPORTS SOFTWARE SWITCH REGISTER ,LOC. 176 

ALSO, SUPPORTS THE DYNAMIC LODING OF LOC.176 


weenie Das 


SCOPE=I0T ; TRAP CALL FOR SCOPE LOOP 


of CATCHER LOC.0-200 *xexxnnawne 
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000044 


000046 
000050 
000052 
54 
000056 


SEQ 0014 


5 


BESRoRaNSs 
eeceessessscesecceeeceneaees 


Soauaunrwuuwe 
WONAUSWR—O 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5. 


SS Ss Ss SS ss YS - 34 YH YH YH 
RNSKENSRRVNSSRVSE 
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545 000224 000226 +2 
546 pons¢e 000000 HALT 
547 2 000232 +2 
548 000232 000000 HALT 
549 000234 000236 +2 
550 000236 000000 HALT 
551 0002460 000242 +2 
552 000242 000000 HALT 
553 000244 000246 +2 
554 000246 000000 HALT 
555 000250 000252 +2 
556 000252 000000 HALT 
557 000254 000256 -+2 
558 000256 000000 HAL T 
559 260 000262 +2 
000262 000000 HALT 
561 000264 000266 +2 
562 000266 000000 HALT 
563 000270 000272 +2 
000272 000000 HALT 
565 000274 000276 +2 
000276 000000 HAL T 
567 000300 000302 +2 
000302 000000 HALT 
000304 000306 +2 
570 000306 000000 HALT 
571 000310 000312 -+2 
572 000312 000000 HALT 
573 000314 000316 +2 
574 000316 000000 HALT 
575 000320 000322 + 
576 000322 000000 HALT 
577 000324 000326 + 
578 000326 000000 HALT 
579 000330 000332 + 
580 000332 000000 LT 
1 000334 000336 + 
582 000336 000000 HALT 
583 000340 000342 + 
5. 000342 000000 HALT 
585 000344 000346 + 
5 000346 000000 HALT 
587 000350 000352 + 
588 000352 000000 HALT 
000354 000356 + 
5 000356 HALT 
591 000360 000362 +2 
592 000362 HALT 
593 000364 000366 +2 
5 000366 HAL T 
595 000370 000372 +2 
5 000372 HALT 
597 000374 000376 +2 
598 000376 HAL T 
5 00 000402 + 
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000406 
000000 
000412 
000000 
000416 
000000 
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000566 
000000 
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713 000746 
714 000000 
715 000752 
716 000000 
717 000756 
718 000000 
719 000760 000762 

000000 


000766 
000000 
000772 
000000 


SEQ 0018 
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sSOFTWRE SWITCH REGISTERs*sannnnnn 
000176 =176 


000176 000000 SWREG: 0 ZSOFTWARE SWITCH REGISTER 
PROGRAM START eet tear eeeeeeeeeh nk 
=200 


000200 ° 
000137 001104 JMP START :GO TO THE START OF THE TEST 
Bol obo 006012 JMP MASTER ENTER THE SCOPE LOOP ROUTINE 


-=1000 
;1/0 REGISTERS 
SR: 177570 


177570 SWITCH REGISTER 
sPROCESSOR STATUS REGISTER 


: TELETYPE REGISTERS 


177560 
INDEX=SELECT+#2 
:DN11 REGISTERS 

SR1: 175200 


VECTOR: 300 
PRIORITY: 
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yPROGRAM WORK REGISTER 
177777 F : ZTITLE PRINTED FLAG 
000000 : 


: STACK 
-BYTE 0,0,0,9 


001054 
006340 





CZDNA-C ° 
P11 09-MAY-7 


CZDNAC 


DN11 DIALEX 3 vos Oh 30A. 1052) O7=SEP-78 15:25 PAGE 5, ’ 


ssssssssssssssssess 


001072 
001030 


010200 
001064 


177777 
006316 


001064 


177444 


THIS ROUTI 
DNIT REGISTER ASSIGNMENTS 
THE FIRST START OF THE PR 
vot: RESET 
MOV STKLINK,%6 
INC FTITLE 
BNE 1$ 
EMT+1 
MTITLE 
1$: JSR PC, SUSWR 
TST FLAG 
BNE NOTFIRST 
BIS #177777, FLAG 
MOV ATEXBUF .%3 
EMT +1 
DNADDR 
JSR %7,.TYST 
MOV #DNCSR1, %2 
JSR %7 .NEXCHAR 
MOV DNCSR1, DNCSR2 
ADD #2, DNCSR 
MOV DNCSRe DNCSR3 
ADD #2, DNCSR3 
MOV ONcoRS: DNCSR4 
ADD #2, DNCSR4 
MOV DNCSRI . STATUS 
GETVEC: MOV ATEXBUF ,%3 
EMT +1 
VECDN 
JSR %7..TYST 
MOV AVECTOR, %2 
JSR %47 ,NEXCHAR 
CMP #1000, VECTOR 
BLOS GET ve 
ADD CTOR 
MOV *56K a@VECTOR 
SUB #2, VECTOR 
NOTFIRST: MOV DNCSR1,STATUS 
BIT #B1T10.aSR 
BEQ +6 
IMP BEGIN 


SEQ 0021 


NE_IS USED TO INITIALIZE THE PROGRAM TO THE CORRECT 
THIS ROUTINE IS ONLY ENTERED ONCE 
OGRAM 
SET UP THE STACK 


SKIP TITLE IF ALREADY PRINTED 
:GO TYPE OUT THE 


:GO TO SWITCH REGISTER SIZING ROUTINE 
TEST FOR THE PA 

BRANCH NOT THE FIRST PASS 

:SET PASS INDICATOR 

SET UP TO RECEIVE DATA FROM TTY 
sASK OPERATOR FOR FIRST DN11 ADDRESS 
:GO FETCH ADDRESS FROM TTY 


:CONVERT OCTAL TO ASCII 
SET UP ALL DN11 ADDRESSES 


TITLE 


[SET UP TO ASK FOR VECTOR ASSIGNMEMT 


FETCH VECTOR ADDRESS FROM TTY 


CONVERT OCTAL TO ASCII 

:1S VECTOR ADDRESS LESS THAN 1000 
BRANCH THE ay FF IS GREATER THAN 1000 
:POINT TO VECTOR P 

SET PRIORITY AT - 


SADJ. VECTOR 


: TESTTO retry ON-LINE TEST ONLY 
ZENTER STATIC 
ENTER ON-LINE TEST 
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at Waren 
DN11_TEST PART1 
; AUTOMATIC DIALER INTERFACE 


‘THE FIRST PART OF THIS TEST CONSISTS OF 
: INTER-ACTION BETWEEN THE OPERATOR AND 
; THE PROGRAM 


[1S PwO CLEARED 


010304 $11: PC, CKSWR ZCHECK FOR <*G> 
000400 177424 B #3118.aSR [DOES THE OPERATOR WANT TO SELECT ONE DN11 


177416 MOV @SR , WORK ‘FETCH WHICH DN11 HE WANTS TO RUN 
177774 #177774, WORK SK COUNT 


001034 WORK COUNT TIMES 2 
000007 #7 ,STATUS :CLEAR_DN11 NUMBER SELECTED PREVIOUSLY 
001034 AD WORK , STATUS 7SET_UP SELECTED DN11 
177432 : @STATUS TEST FOR 801 
BM +12 NO 801 PRESENT 
177777 #1 ers -MASK 


4 
077777 MO W777? MASK 


ME 
177777 +=177400 : #177777 ,ASTATUS 


001070 177372 B MASK ,@STATUS Zs TEST STATUS BIT 
BP ST2XE ;BRANCH IF POWER OFF 
000000 001050 : #0, ERCOUNT s#e® ERROR 0 *** 


007674 : J %5,STAER sREPORT ERROR 
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‘1S ACR CLEARED 


177777 =177344 =ST2x: #177777 ,ASTATUS 
040000 177336 BIT #B1T14,aSTATUS 

B ST3E me ta IF - el IS CLEARED 
000001 001050 ERR1: #1,ERCOUNT * ERROR 1 


007674 J %5,STAER 
ST3E: 


888 8888 


SIS BIT 13 CLEARED (BIT NOT USED) 


177777 =177310: =~‘ST3: BIC #177777 ,ASTATUS 
020000 177302 BIT #B1T13,aSTATUS 
BEQ ST4E :BIT ie. CLEAR EXIT 
000002 001050 ERR2: vat , #2, ERCOUNT z*** ERROR 2 *** 
=N+ 
007674 JSR %5,STAER 
ST4E: + a 


[IS DLO CLEARED 


177777 =177254 = ST4: #177777 ,ASTATUS ;CLEAR THE WOR 

010000 177246 BIT WB1T12,@STATUS ;TEST FOR DATA LINE NOT OCCUPIED 
B sT5 BRANCH IF LINE NOT OCCUPIED 

000003 001050 ERR3: V #3, ERCOUNT pee ERROR 3 *x« 


007674 J %5,STAER :REPROT ERROR 
STSE: 
TARE THE BCD BITS CLEARED 
177777 177220 STS: #177777, @STATUS :CLEAR THE WORLD 
007400 177212 BIT #7400,aSTATUS :TEST BCD DIGITS 
, B ST ‘BITS SHOULD BE CLEARED 
000004 001050 : #4, ERCOUNT bees ERROR 4 ee 


%5,STAER REPORT ERROR 


_— 


ooyLeooowsd 
No 
CSOONAUK LS 
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[CAN WE SET ALL BCD BITS 
177777 ST6: #177777 ,aSTATUS 
MO #7400, aSTATUS SET BITS 


007400 
177152 @STATUS , WORK 
170377 #170377 ,WORK :MASK ALL OTHER BITS 


007400 MP #7400 ,WORK 
B ST7E BRANCH IF BITS fut SET 
000005 : #5 ERCOUNT z*** ERROR 5 * 


007400 #7400,WORK1  § ;BCD BITS THAT SHOULD BE SET 
007772 %5,STAER1 ZREPORT ERROR 
007674 , JS %5°STAER 


: ONE THROUGH THE BCD BITS 
177777 =177074 $= ST?: Wi7y77. 7 
000400 


001036 #400 ,WORK? 





M 2 
CZDNA=C, DN11 DIALEX_ MACY11 30A(1052) 07-SEP-78 15:25 PAGE 25 
CZDNAC.P11 O9-MAY=78 15:36 SEQ 0025 


1036 177060 ST7X: WORK1,@STATUS ;SET UP BCD BITS 
1034 MOV @STATUS , WORK READ ny BCD BITS 
#170377 ,WORK MASK BITS 
WORK 1 , WORK D0 THE BITS EQUAL WHAT WAS LOADED 
ERROR IN BITS READ BACK 


sEXIT ria? a E 
2 SET UP_NEXT PATTERN 
ST 7eR: :LOAD THE NEXT PATTERN 


001050 ERR6: V #6, ERCOUNT yee ERROR 6 ean 


%5,STAER1 ;REPORT ERROR 
%5,STAER 
ST10E: 


:I1S DONE CLEARED 


177777 $110: BIC #177777. @STATUS CLEAR THE WORLD 
176762 TSTB = @STATUS =TEST FOR NOT DONE 
BPL ST11E “BRANCH IF DONE NOT SET 
000007 ERR?: MOV #7. ERCOUNT tee ERROR 7 * 
—=N+¢ 
007674 JSR %5,STAER ;REPORT DONE SET 
STI1E: SCORE 





CZDNA=C, DN11 DIALE 
CZDNAC.P11 Y-7 


000005 
012737 
000012 


004537 
005077 
000004 
002144 


MACY11 30A(1052) 
15:36 


177777 _ 176734 
000100 “176726 


000010 001050 


176630 
176672 
176664 


001050 


07-SEP-78 


N 2 
15:25 PAGE 26 


SIS INTERRUPT ENABLE CLEARED 


$111: 
ERR10: 


ST1I2E: 
$T11 


#177777 ,ASTATUS ; 
#B8176,@STATUS 


ST12E 
#10, ERCOUNT 
%5,STAER 


‘CAN WE SET INTERRUPT ENABLE 


$112: 


ERR11: 


J 
ST12EX: 
S 


#340,aCS 

#BIT6, SSTATUS 
#B1T6,aSTATUS 
ST12EX 


#11, ERCOUNT 


%5,STAER 
@STATUS 


;CLEAR THE cl bane 
[WAS BIT6 C 
BRANCH IF BIT6. CLEARED 
z*** ERROR 10 * 


;REPORT BIT6 SET 


;LOCK UP CPU 
:SeT er a ENABLE 
WAS THE BIT SET 
“BIT SET CLEAR INTERRUPT 
:CLEAR INTERRUPTS 
;*x* ERROR 11 «a 


REPORT ERROR 
:CLEAR INTERRUPTS 


SEQ 0026 





3 
CZDNA-C, DN11 DIALEX_ MACY11 30A(1052) O7=SEP=-78 15:25 PAGE 87 
C 1 09-MAY~7: 


ZDNAC .P'1 & 15:36 SEQ 0027 
995 

996 : 

44 31S DSS CLEARED 

999 002214 042777 177777 176630 S113: BIC #177777, @STATUS ;CLEAR THE WORLD 

1000 002222 032777 000040 176622 BIT MBITS,ASTATUS ;I1S DSS SET 

1001 001405 BEQ ST14E ;BRANCH IF DSS IS NOT SET 
1002 002232 012737 000012 0C1050 ERR12: MOV #12,ERCOUNT y*** ERROR 12 *** 
1003 000013 N=N+1 

1004 002240 004537 007674 JSR %5,STAER REPORT DSS SET 

1005 002244 000004 ST14E: SCOPE 

ee 002246 002214 S713 

ioe 31S PND CLEARED 

1010 002250 042777 177777 176574 S114: BIC #177777 ,@STATUS ;CLEAR THE WORLD 

1011 002256 032777 000020 176566 BIT ABIT4,aSTATUS  ;1S PND SET 

1012 002264 001405 BEQ ST15E :BRANCH IF PND NOT SET 
1013 002266 012737 000013 001050 ERR13: MOV #13, ERCOUNT pee ERROR 13 «xx 
1014 000014 N=N¢+1 

1015 002274 004537 007674 JSR %5,STAER REPORT PND SET 

1016 002300 000004 ST15E: SCOPE 

1017 002302 002250 ST14 


an 


Z 


i 


ee 
00 


3 


GBSSSSERSELS IS 


a ae cd aed ed ed ed 
Ww 


sece 
SSSSEFEKES 


a 
v 


— DIALE 


3 
MACY11 30A(1052) O7=SEP=78 15:25 PAGE 58 
O9-MAY-78 15:36 


177777 
000010 


000014 
007674 


177777 


177777 
000004 


000016 
007674 


177777 
000340 


177777 
000002 


000020 
007674 


176540 
176532 


001050 


176504 
176476 
176470 


001050 


176442 
176434 


001050 


176336 
176330 


001050 


SIS THE MAINTENANCE BIT CLEARED 


$115: 


ERR14: 


JS 
ST15XE: 


[CAN WE 
ST15X: 


ERR15: 


ST16E: 


$T15 


SET THE 


#177777 ,ASTATUS 
#8113, a@STATUS 
ST15X 

#14 ,ERCOUNT 
%5,STAER 


MAINTENANCE BIT 
#177777 ,ASTATUS 
#B1T3.aSTATUS 
#B1T3,aSTA 
ST16E 

#15, ERCOUNT 


%5,STAER 


[1S MASTER ENABLE CLEARED 


S116: 
ERR16: 
ST16XE: 


CAN WE 
$T16X: 


ERR17: 
ST17E: 


SIS DPR 
$117: 


ERR20: 


BIC 
BIT 
BEQ 
MOV 
N=N+1 
JSR 


SCOPE 
ST16 


#177777, a. 
#B1T2, STATUS 
ST16XE 
#16,ERCOUNT 


%5,STAER 


SET MASTER ENABLE 


#177777 ,@STATUS 
#340, aCSR 
WITS” aSTATUS 
#B1T2.aSTATUS 
ST17. 
#17,ERCOUNT 


%5,STAER 


#177777 ,ASTATUS 
#B1T1 ,@STATUS 
T17XE 


#20, ERCOUNT 
%5,STAER 


CLEAR THE WORLD 

1S MAINTENANCE BIT CLEAR 
[BRANCH IF PMAINTENANCE CLEAR 
z*** ERROR 14 * 


REPORT MAINTENANCE SET 


3CAN WE SET MAINTENANCE 
31S MAINTENANCE SET 
YES E XIT 

peak ERROR 15 xen 


CLEAR THE WORLD 
IS MASTER ENABLE CLEARED 
ZBRANCH IF CLEARED 
iee* ERROR 16 *** 


REPORT MASTER ENABLE STILL SET 


CAN WE SET MASTER ENABLE 
;1S MASTER ENABLE SET 
“YES EXIT 

ieee ERROR 17 x 


REPORT ERROR 


CLEAR _THE WORLD 

71S DATA PRESENT CLEARED 

BRANCH IF DATA PRESENT AS CLEARED 
sxx ERROR 20 *** 


;REPORT DATA PRESENT IS SET 


SEQ 0028 





) 
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1074 002536 000004 ST17XE: SCOPE 
1075 002540 002506 ST17 





CZDNA-C, DN11 DIALEX 244 30A(1052) O7=SEP=78 15:25 PAGE § 
CZDNAC P11 09-MAY-78 


1076 : 
re ;CAN WE SET DPR (DIGIT PRESENT) 
1079 042777 176302 ST17X: #177777 ,ASTATUS 
176274 MOV #81T8'BIT3,aSTATUS ;SET PND 
176266 @aSTATUS  ;SET DPR 
176260 @STATUS 
BN ST20E 
061050 ERR21: . V #21,ERCOUNT y*** ERROR 21 ««* 


007674 JS %5,STAER 
ST20E: 


TIS CRQ (CALL REQUEST) CLEARED 


177777 =176232 =ST20: j #177777 ,ASTATUS 
000001 176224 BI MBITO,ASTATUS ;1S CALL REQUEST SET 

ST2TE NO! IT SHOULD NEVER BE SET 
000022 001050 ERR22: MOV #22, ERCOUNT z*** ERROR 22 * 


007674 %5.,STAER sREPORT ERROR 
ST21E: 


ST20 
;TEST THE ABILITY OF SETTING CRQ 
177777 (176176 ST21:_ BIC #177777, 1 a :CLEAR THE WORLD 
001070 176170 are" @STATUS 1 ee :1S THE DN11 CLEAR 


22 ;DN1 
000023 001050 ERR23: #23 ,ERCOUNT pe** ERROR 23 *x« 


007674 %5,STAER REPORT ERROR ‘‘STATUS REG. NOT CLEAR"’ 
BR STO2E EXIT ERROR OCCOURRED 

000001 176144 ST22: MBITO,ASTATUS ;SET CALL REQUEST 

000001 176136 ou e@STATUS oT eee! SET 


000024 001050 ERR24: MOV #24 ,,ERCOUNT z*** ERROR 24 *** 


007674 %5,STAER :REPORT ERROR 
BR ST22E [LOOP ON ERRO 
176114 ST22x: aSTATUS [DONE SHOULD NOT BE SET 
_ ST22E SBRANCH IF DONE NOT SET 
000025 001050 ERR25: MOV #25, ERCOUNT beex ERROR 25 ««« 


007674 %5,STAER ZREPORT THE ERROR 
ST22E: 


BELRIPISSSSBERIZASEE 


[DOES MAINTENANCE SET DLO 


177777 =176066 ST23: #177777 ,ASTATUS ;CLEAR THE WORLD 

001070 176060 MASK ,@STATUS 31S REG CLR 
ST24 3YES! EXIT 

000026 001050 ERR26: MO #26, ERCOUNT 3*** ERROR 26 *** 


007674 "4° STAER :REPORT ERROR 
STO5E 


SBBVRARANLVS SOUS ARATSSSRGRARELLS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ak Bk a i ks dd dk nk a ad a od ad od dd od I 0d ot 8 ot os 


WN 
—_ 
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CZDNA-C, 
CZDNAC .P1 09-MAY~7: SEQ 0031 
113 003010 052777 000010 176034 ST24: BIS #B1T3,@STATUS 
1133 003016 032777 010000 176026 BIT #BIT12,aSTATUS ;1S DLO SET 
1134 003024 00100 BNE ST :YES EXIT 
1135 003026 012737 000027 001050 ERR27: MOV #27 ,ERCOUNT :*** ERROR 27 *** 
1136 0000 N=N+1 
1137 003034 004537 007674 JSR %5.,STAER REPORT ERROR 
1138 003040 000004 ST25E: SCOPE 
1146 003042 002756 ST23 


3 
CY11 30A(1052) O7=SEP=78 15:25 PAGE % 
78 15:36 


ale) 
NING 
ot 


[CAN WE SET PND IN MAINTENANCE MODE 
176000 §125: #177777 ,aSTATUS 
175772 MASK ,aSTATUS :IS REG CLEAR 
B ST25K ZYES! REG CLEAR 
001050 ERR30: “ #30, ERCOUNT sxe ERROR 30 «x 
%5,STAER 
STO 


BR LOOP ON ERROR 
175746 ST25X: #B1T8!BIT3!BITO,a@STATUS ;SET PND IN MAINTENANCE MODE. 
175740 B ie e@STATUS 


BN ST26E PND SET 
001050 ERR31: ; #31, ERCOUNT z*** ERROR 31 *** 


%5,STAER :PND NOT SET 
ST26E SEXIT ERROR OCCURRED 


[DOES PND SET DONE 
175716 $126: TSTB  a@STATUS z1S DONE SET 
BMI ST26E [BRANCH IF DONE SET 
000032 ERR32: Mov ; #32, ERCOUNT txe® ERROR 32 se 
—N+ 
007674 JSR %5,STAER 
ST26E: SCOPE 
$125 
[CAN WE SET DSS IN MAINTENENCE MODE 
177777 175670 §126x: #177777, aSTATUS 
001070 175662 B MASK ,a@STATUS s1S REG. CLEAR 
B ST27 :BRANCH IF CLEAR 
000033 001050 ERR33: " #33,ERCOUNT Tee* ERROR 33 *«* 
007674 %5,STAER 
T27E 


BR S REPORT ERROR 
001011 175636 ST27: AMBITO!BITS!BITO,ASTATUS ;SET DSS IN MAINTENANCE MODE 
000040 175630 7 eaelnes 


BN ST 
000034 001050 ERR34: - #34 ,ERCOUNT z*** ERROR 34 *** 


007674 ‘ %5,STAER 
STO7E ;LOOP ON ERROR 


VMI SS BE EERE EE 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
56 
y 
8 
9 


5 

5 

5 

60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
B2 
83 
84 
85 
86 


©o 





H_ 3 
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CODNAC. O9-MAY=78 1 SEQ 0033 


[DOES DSS SET DONE 


$130: aS TATUS ZWAS DONE SET BY DSS 
ST27E “BRANCH IF YES 
001050 ERR3S: #35,ERCOUNT . ;%** ERROR 35 ««« 


%5.,STAER ;REPORT ERROR 
ST27E: 


7 CAN WE IN_MAINTENANCE MODE 
177777 =175560 =ST31: 1 #177777 ,ASTATUS 
001070 175552 BI MASK , STATUS :1S STATUS REG CLEAR 
B ST31X ;BRANCH TF REG CLEAR 
000036 ERR36: #36 ,ERCOUNT z*** ERROR 36 *** 


007674 Js 15 ,STAER ;RECORT ERROR 
000010 ST31X: #B1T3, asTATUS ; :SET MAINTENANCE 
177760 BI #177760, aSTATUS 
002001 soiree ,@STATUS sSET PwO 
S732 
357° ERCOUNT yee ERROR 37 «x 


%5,STAER 
ST 32E :REPORT ERROR 


ket at 2d 2 2 J Ls 
SESSSFSRASEE F 


Sesecrancs 


j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NIMINMNONY 
a Ser er es 
who 





CZDNA-C, 
CZDNAC .P11 


Nm 
NMONN Sa BS 
URUVISOBNEA 7 


MMMM NNNPNNoNonononofenynofenonononory 
BURR URNS os 


Ww 


Nm 
PERO 
moO 


& 
ew 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RRERE 


DN11 DIALE 


09-MAY-78 
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177777 
001070 


000041 
007674 
000042 
007674 


175354 
00004 3 
007674 


177777 
001070 


000044 
007674 
000410 
000002 
000002 
000045 


007674 


175436 
175430 


001050 


175404 
175376 


001050 


175326 
175320 


001050 


175274 
175266 
175260 


001050 


z;WAS CONE SET 
ST32: STB 
ERRSO: 

ST32E: 

3; CAN WE 
ST32x: 

ERR41: 

ST33: 


ERR42: 


BR 
:DID —, SET DONE 
S734: STB 


ERR43: 


ST34E: 


ERR4G4G: 


S135: 


ERR4S: 


@STATUS : TEST DONE 
ST32E ;YES EXIT 
#40, ERCOUNT art ERROR 40 *«« 


%5,STAER ;DONE NOT SET REPORT ERROR 


ON CALL AND — IN MAINTENANCE MODE 
#177777 ,ASTATUS 

MASK ,@STATUS 1S REG. CLEAR 
S733. S EXIT 

#41, ERCOUNT ieee ERROR 41 *«* 


%5, STAER 

ST 34E ;REPORT REG. NOT CLEAR 
PBIT11!B1T3!B1T0" @STATUS ;SET ACR IN MAINTENANCE MODE 
#1114, “aSTATUS 


S 

#42, ERCOUNT pee* ERROR 42 ««« 

%5, STAER ZACR NOT SET 

ST 34E 

@STATUS ZWAS DONE SET BY ABANDON CALL AND RETRY 
ST 34E [YES EXIT 

343 ERCOUNT beex ERROR 43 x«« 

%5,STAER :DONE NOT SET 

DIGIT PRESENT 

#177777 ,@STATUS 

MASK ,a@STATUS :1S REG CLR 

ST35 :YES BRANCH 

#44,ERCOUNT bee ERROR 44 «x 

%5,STAER 
ST35E ;LOOP ON ERROR 

#B1T8'!BIT3,aSTATUS :SET PND 

#BIT1,aSTATUS ;SET DIGIT PRESENT 

#8171. aSTATUS :1$_IT SET 
ST35X =YES BRANCH 

#45. ERCOUNT teee ERROR 45 ee 


%5,STAER ;REPORT DIGIT PRESENT NOT SET 
ST SSE “LOOP ON ERROR 





pay DN11 DIALEX macy 30A(1052) O7=SEP=78 15:25 PAGE 45° 
CZDNAC .P11 O9-MAY-78 15:36 SEQ 0035 


IALE 
; WAS DIGIT PRESENT CLEARED 
042777 0004610 175234 §1T35x: BIC BIT eile ee CLEAR PND 
032777 900002 175226 8 WBIT1,@STATUS  ;WAS DIGIT PRESENT CLEARED 
001405 B ST35 7 YES BRANCH 
piers 000046 001050 ERR46: . #46 ,ERCOUNT p*** ERROR 46 «xs 
004537 007674 J %5.,STAER REPORT ERROR 
000004 


ST35E: 
003516 
3 CAN WE CLEAR DONE 


105777 175202 $136: @STATUS TEST DONE 

100006 BP ST36X DONE CLEAR BRANCH 
000047 001050 ERR47: - Vv #47 ,ERCOUNT z*** ERROR 47 xe 
007674 e STAER REPORT ERROR 


00042 BR ST36E 
052777 000200 175156 5T36x: #B1T7,aSTATUS 
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CZDNAC .P11 O9-MAY~-78 1 


:CAN WE CLEAR DONE 
CLRDON: TSTB = @STATUS :1S DONE SET 
BM DONSET SYES DONE SET 
001050 ERRSO: " #50,ERCOUNT tees ERROR 50 x«x 
007674 %5,STAER ;REPORT ERROR 
STS “LOOP 


BR T56E : ON ERROR 
000200 175126 DONSET: BIC WBI1T7,aSTATUS  ;CLR DONE 
175122 T 5d ob oe erin CLEARED 


BPL ST36E S 
000051 001050 ERRS1: #51, ERCOUNT y*e* ERROR 51 ««« 
%5,STAER ;DONE NOT CLEARED 


o--— 
—OoC 
Rak 
N 

& 


—— 
SS5k 
Moun 
~~ 
Ww 
N 


YIN NWN Sw 


g 


ST36E: 
S736 

;CAN WE GENERATE AN INTERRUPT 
RESET 


$137: 

MINTER, @VECTOR ;SET UP INTERRUPT VECTOR 

#240, aCSR ;SET CPU PRIORITY LEVEL TO BRS 

#81T6'BIT7,aSTATUS :SET INTERRUPT ENABLE AND DONE 
;NO INTERRUPT SHOULD MASTER ENABLE NOT SET 

ST37xX — SET MASTER ENABLE TO SEE IF WE CAN INTERRUPT 
;REPORT AN INTERRUPT OCCURRED THAT IS AN ERROR 

174772 : #340,aCSR 
C aSTATUS 


001050 : MOV #52, ERCOUNT yee* ERROR 52 *«* 
%5, STAER 
ST 38E 
174766 : #SECINT,aVECTOR ;SET UP INTERRRUPT VECTOR 
174750 B #BIT2,aDNCSR1 :SET MASTER ENABLE 
NOP ZNO INTTERRUPT SHOULD OCCUR PROCESSOR IS AT LEVEL 5 
S138 ‘WE SHOULD NOT INTERRUPT LEVEL TO HIGH 
001050 : MOV #53, ERCOUNT pee ERROR 53 «x 
%5, STAER ;REPORT THE DN11 INTERRUPTED 
BR ST 38E ‘ENTER SCOPE LOOP 
174730 : #ST38E,a@VECTOR :SET UP FOR INTERRUPT 
C acsR SLOWER PROCESSOR PRIORITY 
TIME :SET UP TIME 
TIME :WAIT FOR INTERRUPT 


74 
#340,aCSR :LGCK UP CPU DN11 DID NOT INTERRUPT 
#54, ERCOUNT seek ERROR 54 eee 


%5.,STAER ;REPORT DN11 DID NOT INTERRUPT AT BRO 
STKL INK ,%6 TRESET STACK 


ccanenaeanIaiaaiaNE F 


WIWNWWWNWWNWG 
es ad ad ed ed od dd 
OWDNAUSWN—-O 


RSIEENNS 


BARAEROS 
BRRERERE KERRER EEE 
SnoRS 


S 
174630 $ #B1T8,aSR DID THE OPERATOR SELECTED A DN11 
-*6 :_NO! R 


NORMAL 
000137 001342 si" [THE OPERATOR DID SELECTED A DN11 
023737 001052 DNCSR4 , STATUS 


BA 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


bys bya ge a bya 
GW 
Yn iN 


Ww 
N 
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v 
= 


RESTART 


#2, STATUS 
MBIT6,ASTATUS ;SET INTERRUPT ENABLE 
wr Wercatetesie :IF SET DN11 IS POSSABILE THERE 


IW 

W 

oO 
and aad ned 
~N 


KEK ERK g 
saneeee 


JMP ST1 
poate DNCSR1 aw 


REFERS 
Nm 

Ns 
* 


#B1T9,aS TEST IF_THE OPERATOR WANTS TO L 

MYCNT BRANCH TO ON-LINE TEST IF BIT 9 
JMP ST1X LOOP ON STATIC TESTS BIT9 SET 

001044 MYCNT: ; tee WAIT FOR PHONE LINE TO SETTLE 


TIME 
TIME 1 
.-12 


OOP ON STATIC TESTS 
NOT SET 


sssseee 
BVUAORR 


DANN 
WhO ODONAWN 


SESESESES 


Say 
oO 


Ww 
NN NNN 
OUnSWN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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DN11 DI 
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11 8 15:36 


Z2 


C 

CZ 

4 ae 11 

THE te ge MUST ASSIGN PHONE NUMBER TO EACH DN11 

BEGIN i STKLINK ,%6 3SET UP STACK 
PC,.CKSWR :CHECK FOR CNTL G 
latent :SET UP VECTOR 
NOF LAG 
.+6 
NEWNO 
PC,CKSWR 
#BIT7,aSR 
DND IAL 


SSoN8 


174516 


WANG 
aeatat 
lo? aio) 


8 


CHECK FOR <*G> 
TEST FOR TTY CONVERSATION 
BRANCH IF NO CONVERSATION 
;CLEAR PHONE MAP 


ROR 
On 


174444 


tee 


MAP+2 
004320 #177777 ,NOFLAG 
OUNT 


C 
#PHO1 ,%3 
+1 


SESLRFLESISSEESER ESE 


SREP ERE RR EEE EEE E ES 


SENS 


:SET UP PHONE #1 BUFFER 


%7,TYST FETCH KEYBOARD CHAR 
PHO1 


28 


28 
Sxat 


RR 


0044 
0044 
004414 
004416 
004422 
004424 
004426 
004432 
004436 
004440 
004444 
004452 
004454 
004460 
004 


NO1 

COUNT 

#377 MAP (4) 
%4 

#PHO2 ,%3 

+1 


%7,TYST 
PHO2 

NO2 

COUNT 

#377 ,MAP(4) 
%4 

#PHO3 23 

+7 


%7,TYST 
PHO3 
NO3 


;QPERATOR FAILED TO TYPE A PHONE NUMBER 
LOAD MAP 


ODT KEYBOARD CHARACTER 

re THE OPERATOR TYPE A PHONE NUMBER 

THE OPERATOR ONLY GAVE THE PROGRAM ONE NUMBER 
{THE OPERATOR TYPED AN NUMBER 


FETCH KEYBOARD CHARACTER 
:DID THE OPERATOR Mas A NUMBER FOR LINE THREE 
[NO NUMBER FOR LINE THREE 
: OPERATOR TYPE D A NUMBER 
;LOAD MAP 


COUNT 
a ans 
#PHOS , %3 

+1 


47, TYST 
PHOS 


N 


FETCH KEYBOARD CHARACTER 

TEST IF THE OPERATOR TYPED A NUMBER FOR THIS LINE 
DND IAL [OPERATOR DID NOT TYPE A NUMBER 
a gees MAP 


COUN 

ee STATUS 
COUNT , SAVE 

ae 


SERS 


SBepseseeees 


SLL8a8s5 
BUNA SA 


g 
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1437 

1438 TEST FOR DN11°S TO BE IN READY STATE 

1439 :REGISTERS SHOULD BE CL we BE CAUSE 

1440 * OF RESET COMMAND ISSUED AT START 

1441 004737 010304 RINGO: JSR PC,CKSWR ;CHECK FOR CNTL G 
1442 001074 T MAP (4) IS THIS LINE ACTIVE 
1443 BEQ EXMODOK “BRANCH NOT ACTIVE 
174250 @aSTATUS 


MODOK DN11 READY OK 
174242 @STATUS ,WORK SFETCH CONTENTS OF REGISTER 
001052 STATUS ,WORK1 [FETCH ADDRESS RA REGISTER 
#55 ,ERCOUNT z*** ERROR 55 * 


010060 SR %5,STAER2 ;REPORT DN11 NOT READY 


BR : YOU CAN NOT CONTINUE 
001046 : SAVE [ON UNTIL DN11 IS MADE READY 
BE SETPT GO SET CALL REQUEST 


24 
4 a SET UP FOR NEXT DN11 
NGO ZTEST NEXT DN11 


SET UP DIGIT POINTERS FOR PHONE NUMBERS 


va se vy SEQUENCE 

ETP CLR PNT1 SET UP DIGIT POINTER ONE 
ZSET UP DIGIT POINTER TWO 
ZSET UP DIGIT POINTER THREE 

:SET UP DIGIT POINTER FOUR 


%4 
001046 T E SET UP TO ENABLE CRO 
001052 MO 7SET UP DN11 POINTER 
SETCRQ: 13. pany 31S THIS ACTIVE 


174122 oot STATUS :SET CRQ - INT. ENABLE - MASTER ENABLE 
174114 wslrie, @STATUS :TEST FOR DLO SET 

BE BLOTS ‘DLO SET OK! 
001050 7m V #56, SRCOUNT bee ERROR 56 *** 


001034 @STATUS , WORK zFETCH CONTENTS OF STATUS REGISTER 
See 


SAVE 

WAITIN GO WAIT FOR INTERRUPTS 

#2, sane SET UP FOR NEXT DN11 
BR SETCRO >SET_UP_NEXT DN11 

7SET UP_TO COUNT DSS_ INTERRUPTS AND TIME OUT IF ALL 

DSS Fg 7 hs ». NOT OCCUR 


WAITIN CSR 
c T.DSSCNT — ; NUMBE OF DN11 
177700, TIME 1 


10.1 TIME SET UP TIMER 
#BiT2,@DNCSR1 ;SET MASTER ENABLE 
TIME WAIT FOR DSS 


TIME 1 


uuBSERESE 


ee ed od 2d 2 I I 
Warestestestestesteste 
wah ABA, Atv Atv 4} 


1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1“ 


™~ 
N 
st 


— eS a OS 
aaa 
CONAUESWIN 


DLOTST: 
EXCRQ: 


SRESS 
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1493 005050 
1494 0 
1495 
1496 
1497 005004 C %4 
Lyd = 001050 ERRS?7: c #57 ,ERCOUNT y**® ERROR 57 ««« 
1° 001040 001046 MO COUNT , SAVE 
1501 ) 061052 MO DNCSR1, STATUS 3SET UP TO FETCH DN11 REGISTERS 
DNSTATE: MAP (4) sTEST IF THE LINE IS ACTIVE 
BE DN ;LINE NOT ACTIVE CHECK NEXT 
173730 001034 @STATUS , WORK sFETCH DN11 STATUS 
010060 25, STAER2 sREPORT STATUS 
001046 SAVE 
he ;GO REPORT END 
000002 001052 cektioeee ;SET UP TO TEST NEXT DN11 
177770 001044 : #177770,TIME1 ;SET UP TIME TO LET PHONE RING 
001042 TIME 
001042 TIME 
001044 TIME1 


ewle 
010000 173574 #B1T12,aSR TEST HOW DO WE TERMINATE THE CALL 
001040 NOTCRQ CALL TERMINATED BY RESET 


001046 COUNT , SAVE 
001014 001052 MO —— » STATUS 
001074 T MAP (4) 


BNE TWOSEC 
000340 173722 #340,aCSR LOCK _UP_CPU 
+] REPORT TIME OUT 


S3zE 


SExeoR 


VIMAVIVIVMVIVIAVIU 
anh cab aah and at aa cath cc ee el 
WOONAOUSWI—O 


EXCLRDN 
000001 173612 #B1TO,aSTATUS 
177770 001044 177770, TIME1 
001042 TIME 
001042 :WIAT FOR DSS TO COME BACK 
001044 
BN 10 
000040 173556 WBITS,AaSTATUS  ;TEST FOR DSS 
DSSCLR [DSS CLEARED BY CRQ 
001052 STATUS,WORK1 §_:SET UP FOR ERROR REPORT 
173542 MO @STATUS , WORK 
000060 ERR60: m V #60, ERCOUNT y*** ERROR 60 *** 
010060 J %5, STAER2 :REPORT ERROR 
001046 DSSCLR: SAVE 
BE REPEND :RECYCLE 
EXCLRDN: 14 


000002 AD #2,STATUS :GO CLEAR NEXT DN11 
CLRDN+2 


MMV 
BNARRAV IS 


mn 


AAAAAAM AMAIA 


[DN11°S MUST BE CLEARED BY RESET IN THIS TEST 


010304 NOTCRQ: JSR PC, CKSWR sCHECK FOR CNTL G 
RESET ‘CLEAR THE WORLD 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


DNRARWN SSBVEARAY ISS 


KERELLLXRL 
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012737 177770 001044 #177770,TIME1 ;SET UP TO WAIT FOR LINES TO SETTLE DOWN 
5037 001042 TIME 
901042 
001044 


=> 
ae 
ow 


REPORT END 
001320 MP NOTFIRST sRECYCLE TEST 


15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
1 
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Hs 


S INTERRUPT HANDLER FOR DIALEX 
ON LINE TEST 


#B1T2,@DNCSR1  :CLEAR MASTER ENABLE 

C SAV [SET UP TO COUNT DN11°S 
DNCSRi,STATUS SET UP ADDRESS ASSIGNMENT 
#PHO1 ,POINT “FETCH NUMBER POINT 

#PNTI GENTRY 


MAP (4) 31S THE LINE ACTIVE 
EX INC BRANCH THE a IS NOT ACTIVE 
@STATUS :I1S THE DONE FLAG SET 
NCDN :NO INTERRUPT FROM THIS _DN11 
#160000,@STATUS ; ERROR ? (PWO-ACR-B1T13 UNUSED) 
NOERROR BRANCH NO ERROR 
@ENTRY 21S _IT THE END OF CALL 
DSSSET YES ACR SET END OF CALL 
BR REPORR REPORT ERROR OCCURRED 
173340 NOERROR: MBITS,A@STATUS ;1S DSS SET 


DSSSET BRANCH IF DSS SET 
173330 #BI1T4 ,ASTATUS FOR PND 
BN PNDSET :PND S 
001050 ERR61: V #61 ,ERCOUNT ;*** ERROR 61 *«x 
%5,,STAER2 
BR INCDN 
PNDSET : POINT, INDEX SET UP TO FETCH DIGIT 
MOV Pe &) ;SET UP DIGIT POINTER 


SESSoRER 


BIVRARANISS 


i a ded ed wd = 
MAAIVIMIVIVIVIVT 


FERERSS 


SSBEe 


ios 


BM INCDN. 
SELECT: MOVB FETCH DIGIT 
8 a :IS THIS THE LAST DIGIT 


ST EON OPTION 
‘801 DOES NOT HAVE y- a 
:LOAD END OF NUMBER COD 


“pe x0 ;LOAD DIGIT INTO TOP BYTE OF DN11 REGISTER 
MO WORK ZLOAD BCD DIGIT 
SETDPR: WBI Te aSTATUS [CLEAR DONE 
BI #11) ,@STATUS  :SET DPR 


I @ENTRY 
INCDN: CMP STATUS,DNCSR4 ;TEST FOR LAST DN11 
B EXDSS sBRANCH ALL DN11 OPERATING 


SELESRES 


LASTDG: 


SESRSSases 


SAVE 

goss 

#2, ENTRY :SET UP FOR NEXT DN11 POLE 
#2, STATUS : 


#22, POINT 
Dist ST ;TEST NEXT DN11 


EXINC: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


AXARARAAO 
2s 
QUsSWN-O 
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_ 
o 
— 
oon 


; TEST DSS FOR OVERFLOW AND EXIT 
005737 001032 EXDSS: aro DSSCNT DID WE RECEIVE DSS FROM ALL 


001404 RESTE sYES EXIT 
052777 000004 173052 #B1T2,aDNCSR1 ;SET MASTER ENABLE 


000002 R 
012706 001000 : #1000, %6 sRESET STACK 
000137 005150 JMP END sRECYCLE PROGRAM 


ao 
ated 


ROUT INE DEC DSS COUNT 
001032 SSSET DEC DSSCNT 
000200 - He e@STATUS ;CLEAR DONE 


SROUTINE TO REPORT DN11 ERROR 


REPORR: 
001050 ERR62: #62, ERCOUNT yee ERROR 62 *** 


BESSE SERRE 


St 3 Sh Ss 
Wh 


AXAOOO 
yee aber 


%5,STAER2 
173042 wait? ‘8110, @STATUS CLEAR _ AND CRQ 
BR INCDN ;GO TEST "NEXT DN11 


;MAINTENANCE ROUTINE FOR SETTING PULSER 


001002 MASTER: MOV #340,CSR LOOK UP CPU. PRIORITY 
MOV STKLINK ,%6 

PC, SUSWR 2 CHECK FOR HARDWARE SWITCH REGISTER 
172744 001052 @SR,STATUS 


010304 : PC,CKSWR ; CHEC <*@> 
172730 173000 MO @SR,aSTATUS s;MOVE SR INTO DN11 REGISTER 


000010 172710 #B1T3,aSR i TEST os MAINTENANCE MODE 

BN CLRWAT BRANCH WE ARE IN MAINTENANCE MODE 
177770 001040 #177770,COUNT ;WAIT 2 SECONDS FOR 801 SIGNALS 
001045 TIME 


001040 


172726 C :CLEAR_DN11 

0000106 CLRWAT : sARE WE IN MAINTENANCE MODE 
BNE CLRREG ;BRANCH NO NEED TO WAIT 

aha 0 #177770,COUNT ;WAIT FOR 801 


CLR TiM 
001042 CLRTIM: INC 


— od od oe od 3 2s 


BS 
RERRRSRRTORRDRREDR TREE ORR 
SNSKSSFNVARSKSRS 


RVEVNRSAVSR 
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BNE CLRTIM 

001040 INC COUNT 
CLRTIM-4 


BNE 
172664 CLRREG: CLR @STATUS sRECYCLE 
BR EXMAST 


“ROUTINE TO HANDLE KEYBOARD CONVERSATION 
ROUTINE ACCEPTS NUM. OR ALPHA CHARACTERS 


006450 TYST: %3,BUFLIM SAVE FIRST ADDRESS OF INPUT BUFFER 
000340 172600 MOV #5340, acsrR ;LOCK UP INTERRUPTS 

172604 TSTFLG: CHECK FOR FLAG 

. BP PSTFLG : 

172572 172566 MOVB a1KB,aTPB ; CHARACTER IN BUFFER 

172566 aTPs ECHO CHARACTER 


74 
000377 172554 thee aTKB CHECK FOR RUB-OUT 
SEXIT IF NCT RUB-OUT 
006450 is. BUFLIM HAVE WE RUBBED-OUT BACK TO BEGINNING? 
TSTFL LG YES, DO NOT RUBOUT ANYMORE 


BEERS PERE 


REPORT RUB-OUT ACKNOWLEDGED 


x3 
BR TSTFLG :GO WAIT FOR NEW CHAR 
010302 : om TTIN :CHECK TO ae LOADING SWREG 


1$ SIF SO GET 
000215 172520 ieee CHECK FOR CARRIAGE RETURN 


006450 43 ,,ABUF LIM zARE WE RUNNING OUT OF BUFFER SPACE? 
3$ :NO, SKIP OVER ERROR MESSAGE 
YES, REPORT ERROR 


3S 
Wr 


SESEAE 


BR TSTFLG 
172476 3$: aTks, sare ;LOAD CHARACTER IN BUFFER 
BR TSTFLG 
+ + (3)+ 
%7 sEXIT DELIMITER TYPED 
TExBUF : 


PHO1: 


BUFLIM: 0 


; SUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER, 





CZDNA-C, 
CZDNAC.P11 


17 


~ 
a 


uscd 


le al cad cd cd ce ed cae en ee eld ed 
NNN ~“N 
NM—OO0ON 


N 


~~ 
fotos VMMAMNVIYIV) 
GRAS Se yRu Res 


7 
7 
7’ 
7 
75 
7 
7 
7 


NNN 
GRARA 


8 8 ot 8 to os es ss 
N 
RARER 


RASASI 


DN11 DIAL 


000002 
006572 
000100 


000045 
000042 
006526 


006572 
172250 


010304 
040000 


MACY11 30A(1052) 
O9-MAY-78 15:36 


006572 


006572 
006572 


172250 


006572 
006572 


172160 


07-SEP-78 


TYP: 


TYPD: 
TYEXIT: 
TYPF : 
TYPG: 

BR 
TYPDAT: 0 


EMTRP 
CMP 


G 4 
15:25 PAGE 45 


az6,%0 

(0) +, TYPDAT 
#100. TYPDAT 
TYPC 

#45, TYPDAT 
TYPF 

#42, TYPDAT 
TYPG 

47, TYPD 
TYPA 

TYPDAT ,aTPB 
aTPs 

en’ 

47 

#15, TYPDAT 
47, TYPD 
#12, TYPDAT 


%7, TYPD 
TYPA 


wei +1 -(0) 
tYP> 


GET ADDRESS THAT CONTAINS MESSAGE ADDRESS 
7SET UP EXIT. 
ADDRESS OF MESSAGE TO RO. 
;GET CHARACTER 
"‘a'’ CHARACTER 
NOT ‘‘Q"' 
EXIT. 


:BRANCH I ° 
;NOT ot CHECK FOR ‘#"’, 
BRANCH IF ‘i#"' 
STYPE CHAR IN TYPDAT 
MIT er 5 toe FL TO PRINTER 
WAIT FOR DONE FLAG. 
sEXIT 
:MOVE cian RETURN CODE TO TYPDAT 


MOVE LF CODE TO TYPDAT. 
:GO TYPE CHAR. 


ios var DECODE EMT CALLS FOR TTY 
sWAS CALL EMT+1 
* EMT +0 


T BYPASS THIS ROUTINE AND JUST LOOP ON THE TEST 
T SET LOOP ON EACH TEST 15 TIMES THEN GO TO THE NEXT TEST 


PC, CKSWR 
#B1T14,aSR 


+ 
a(6)+,-(6) 
PASS 

.+10 

#35 PASS 
PASS 

+6 
a(6)+,-(6) 
#2, (6) 


CHECK FOR <*G> 
TEST IF BIT 14 IS SET 


HE STACK 
; LOOP EST WITHOUT at a THIS ROUTINE 
: TEST IF La PASS COUNT IS ZERO 


; I 
SPASS ZERO ENTER NEXT TEST 


[PLAYING WITH THE STACK AGAIN 
RE-ENTER TEST 
: INC.STACK FOR THE NEXT TEST 


EXIT TO THE NEXT TEST 
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1785 POWER FAIL SEQUENCE 
786 : 


1 ; 
1787 006662 012737 906672 PWRDWN: MOV #PWRUP , 24 :SET_UP POWER FAIL VECTOR FOR RESTART 
1788 006670 000000 HALT HALT AND WAIT FOR POWER TO COME BACK 


;THIS THE POWER UP SEQUENCE REPORT POWER HAS FAILED AND 
sWAIT TWO SECONDS FOR THE PHONE LINES TO SETTLE 


PWRUP : APWRDWN , 24 SET UP POWER FAIL VECTOR FOR POWER DOWN 
oe SET UP THE STACK 
+ 


REPORT THE POWER HAS FAILED 
177770 001044 MOV #177770,TIME1  ;SET THE TWO SECOND TIMER 
001042 TIME 


001044 
INCTM 

000176 001000 : CHECK FOR oe e USE 
1$ :1F NOT GO TO 4 


010354 J [GO LOAD SWREG FROM T 

001104 1$: JMP START :G0 To THE BEGINNING or THE PROGRAM AND RESTART 
ROUTINE TO SAVE ye a 
SAVEREG: Pa %0,-(6) Bry! REGISTER 0 


1 

5 
SSAVE REGISTER 4 
SEXIT ROUTINE 


ROUTINE TO soit 7 REGISTERS 
RESTORE: TST (6)+ 
RESTORE REGISTER 4 
:RESTORE REGISTER 


eet tetera ttt totic the RP RC 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BR 
nm 


SEXIT ROUTINE 
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; SUBROUTINE TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 


TYPS: a%6, 20 :GET ADDRESS THAT CONTAINS alte SSAGE ADDRESS 
AD #2, a%6 ‘UPDATE TO NEXT MESSAGE AD DRESS 
007034 az0, TYPSB SADDRESS OF MESSAGE T 
177777 007034 #-1_TYPSB SCHECK FOR TERMINA TOR 
TYPSA ‘BRANCH IF NOT TERMINATOR. 
: TERMINATOR. T. 


+1 >CALL_ON TYP SUB TO TYPE MESSAGE 
ADDRESS OF MESSAGE GOES HERE 
[GO PROCESS NEXT MESSAGE 


;OCTAL TO ASCII CONVERT ROUTINE 


ZENTER ROUTINE AS FOLLOWS 
%5, CONV 


R 
s;ADDR# = ADDRESS OF NUMBER TO BE CONVERTED 
:ADDR BYTE = LSB OF WHERE ASCII IS GOING 
SASCI1# = THE NUMBER OF ASCII CHAR. TO BE CONVERTED 


SESSSERTTERSRRBERBEE 
co 
ARARERRERERE RAB enweren 


013537 CONV: a(5)+,ACNVX ;VALUE OF #4 TO BE CONVERTED 
012501 (5)+,%1 TASCII ADDR 
012502 (5)+,%2 :# OF ASCII CHAR 

060201 12,21 


e 


013703 7120 : ACNVX,%3 
2703 B #177770,%3 : ISOLATE LEAST P inant saneaal OCTAL # 
#60,%3 7SET UP ASCII # 
>STORE ASCII CHAR 


ROTATE OCTAL # 


007120 


371 FROM ASCII CHAR COUNT 


RTS EXIT # CONVERTED 
ACNVX: ;WORK REGISTER 
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THIS ROUTINES IS USED TO CONVERT ASCII INPUT TO OCTAL 


NEXCHAR: MOV  #TEXBUF ,%3 :FETCH ASCII POINTER 
CLR axe 


TEST FOR LAST CHACTER 
sLAST CHACTER EXIT 


L a%2 
000370 :MASK OUT HI ORDER BITS 
;LOAD OCTAL VALUE 


EXIT LAST CHARACTER PROCESSED 
t 


kK 
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:TTY OUTPUT FOR DIALEX=11 
.ASCII /% THE 801 IS OFF LINE.@/ 


/%ZTEXT BUFFER IS FULL. NO MORE INPUT ALLOWED EXCEPT <RUBOUT> OR <CR>.a/ 


ee ee ee 
Oo 
Ww 


SER ERE RS RRL Std 
RETR SO 


NNO 


SOR SUK 
BRAGVER 


OR 


LARSSRKRGLE 


BESRaR 


/%PHONE #12@/ 


/%PHONE #2?0/ 


SSSVSsSssss 


SONA 


USWNO 


/%PHONE #3?@/ 


MN 
— 


OOOOOOOO0DO 
MEW 


/%PHONE #42@/ 


MMP 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


28 


R 


BREWER 


/%PROGRAM TIMED OUT UNABLE TO COMPLETE CALL@/ 


RERESRL 
oN 
RISRSLG 
Ouwrow 
RESRSRR 


= 





CZDNA-C * 
C 


ZDNAC .P 


1941 
1942 


g 


SEKKLKK 


BIAS 
MEWN—OOONAUSE 


PERELSELIEIS 


g 


1 
1 
1 
; 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


— oes td os = = 8 3) Ls st 
Ssseeseeeesss 
Bo NOUEWN OO 


& 


PREECE ET Soh St 


DN11 DIALEX 


007442 


4 
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020040 
051117 
052116 


MESEND: .ASCII 


BNADDR: .ASCII 


VECDN: .ASCII 


/%ENDA/ 


/%DN11 REGISTER ADDRESS?@/ 


/%VECTOR ADDRESS?a/ 


ERROR COUNT a@/ 


GD DATA) @/ 


BD DATAad/ 


DNCSRai/ 


SEQ 0050 
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007634 042040 
007642 020040 


HED6:  . ASCII /%POWER FAIL OCCURRED@/ 





CZDNA-C 
CZDNAC .P11 


SSS eeeeSee 
—OOONAULSWN oO 


8 


DN11_DIAL 
09-MAY= 


007674 
2 


ALEX 
78 1 


MACY11 30A(1052) 
15:36 


020000 171076 


006754 
007040 


007040 


171024 


010304 
006770 


020000 170712 


07-SEP-78 


N 4 
15:25 PAGE 52 


“ROUTINE TO REPORT ERRORS 


STAER: 


STAER1: 
BE 


ice 


“5 
%5, SAVEREG 
%5° CONV 


o 


%5., CONV 


+0 


aSR 
1$ 


PC,CKSWR 
a »RESTORE 


#B1T13,aSR 
+4 


“5 
%5., SAVEREG 
%5, CONV 


%5 ,RESTORE 
SwWR 


#B1T13,@SR 
“5 


TEST TO peer TYPE-OUT 
BRANCH TO TYPE 


;DELETE TYpE=oUT 
TSAVE REGISTERS 
[CONVERT OCTAL TO ASCII 


REPORT ERROR NUMBER 


; TEST TO HALT ON ERROR 


;CHECK FOR <*G> 
*RE STORE REGISTERS 
SEXIT 


TEST TO DELETE TYPE-OUT 

BRANCH TO TYPE 

7BIT13 SET DELETE TYPE-OUT 
STER 

; CON ASCII 

[WHAT REGISTER SHOULD CONTAIN 


CONVERT OCTAL TO ASCII 
SWHAT REGISTER CONTAINED 


;REPORT MESSAGE 


s RESTORE REGISTERS 
sCHECK FOR <*G> 


sTEST 7 perere TYPE OUT 
CH TO TYPE 
“DELETE TYPE~OUT 
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006754 5.5, — 3 SAVE REGISTERS 
007040 5.C CONVERT OCTAL TO ASCII 


170736 @STATUS , WORK 
007040 %5.,CONV CONVERT OCTAL TO ASCII 


007040 JS %5,CONV ;CONVERT OCTAL TO ASCII 


+0 


170616 aSR sTEST TO DELETE +g: ON ERROR 
1$ BRANCH IF NO HALT WANTED 


010304 : PC, CKSWR CHECK FOR <*G> 
006770 aides SRESTORE REGISTERS 


lelelelelelelelelelelelelelelelelolele|=|o]o) 

ee ee ee ee ee 

SCOOCOOCOOOOCOOCOOCCOCOOCOCOO 
Vn 

NSLS ENUSERVORKSS RNaOR 


HARDWARE SWITCH REGISTER SIZING ROUTINE***xxxex® 


001000 : #177570,SR a OTS ee SWITCH REGISTER ADDRESS 
MO a6 ,- (SP) 7SAVE VECTORS 
a44 ,- (SP) 
000004 #643 , 044 SET UP FOR TIMEOUT 
170546 oe v@SR ;REFERENCE HARDWARE SWITCH REGISTER 


66$ 
4$: (SP)+,(SP)+ sADJUST STACK 

001000 : WREG, SR :POINT TO SOFTWARE SWITCH REG 
66$: sRESTORE VECTORS 


001000 1S SWREG USED 
67$ 


1 sALLOW SWREG TO BE LOADED 
010272 
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iF toc ites REGISTER ROUTINE. CHECKS FOR “G TO ALLOW CHANGING 


“LOCATIONS USED: 
010274 EMPST: .WORD 
T: WORD 


WORD 
WORD 


0 
0 
0 
0 


0061000 : ~ AMSWREG,SR i> ator REGISTER PRESENT 
170470 : #B1T11,aTKS 7SEE IF TTY 1S BUSY 

69$ SIF BUSY WAIT TILL DONE 
010300 aTkB,i18 AND STRIP OFF 


010300 #200,TIB GARBAGE 
010300 ee ft ,TIB 71S IT A <*G@> 


+7 3; TYPE <*G> 
+1 ; TYPE SWR= 


006754 %5.,SAVEREG SAVE REGISTERS 
007040 %5., CONV GET CONTENTS OF SWREG 


POMINMNMONININ NNN NoNoNaNoNoNoNoNgNNoNnonononofornorny» 
3 3 3 4 hh 3 9 9 hh 
WMA NMNMNMNINMNNNN 2 2 SS SS 


006770 %5 .RESTORE RESTORE REGISTERS 
+1 :TY 4 ad CONTENTS OF SWREG 


nm 
=_ 
&* 
_ 


mn 
pe 
, at 
SW 


010274 : TEMPST 
000007 010276 #7 ,WCOUNT 

010302 TTIN 

006170 PC,TYST :GO READ A CHARACTER 
170352 aTk8,TIB 

177600 #177600,TIB sSTRIP OFF oe 
000025 #25,T1B 3I$ 


rmnn 
— 


NNoNoNoNony 
ed ed ed eed dd ed 
BVSESES 
SOOONOU 


$ U 
000015 : CMPB #15,TIB 
BNE 4$ : 
+1 : TYPE CRLF 
000007 010276 MP #7 ,WCOUNT sWAS IT FIRST CHARACTER 
BNE 7$ > CHANGE SWR IF NOT FIRST ONE 
OUT ;GET OUT 
000060 010300 3 930.118 
000067 010300 
sTYPE ? 


START OVER IF NOT LEGAL CHARACTER 
BINS 


BLEAREVIS SHIRARUNYS 


;GET NITTY=GRITTY 


NOMPGNDMNINDNN NN MNNoNNgNNMNoNoNofy 
a > rs 


000060 TIB 
153737 118. TEMPST 


Oo 
~ oO 
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010562 010276 ;ONLY WANT 6 TS 
010566 ate 
010570 


SEQ 0055 


BR 1$ 
010274 170200 7$: TEMPST ,aSR : CHANGE SWITCH REGISTER CONTENTS 
010302 OUT: TTIN 
PC RETURN TO PROGRAM 


MCNTLG: .ASCII /%*G%A/ 
MSWR:  . ASCII] = /%SWR=a/ 


MNEW: ASCII / 


022507 100 
053523 036522 


MCRLF: .ASCII /%a/ 
MQUEST: .ASCII /%?%a/ 
MTITLE: .ASCII /%CZDNA-C DN11 DIALEX%a/ 


04 
022530 


ak ad 8 ot 8d od = 8 
LRFRAVLESEVRARAVTSSISIVAARAVVS 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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ACNVX 007120 1863* 1864* 1865* 18694 
ACVN 007052 
BEGIN 004 


woWO 


[ss 
sesces 


z 


1266 


nnn 
> = et 
32 § 
UN NS FO a FOU 


& 


21224 


AQ WUWNO—oonro 
NN SWOUODMMUON 


ee ms 


2076 2135 
1466 1486 1500 1519 1567 1661* 


1485* 1494* 1648*  1687* 


oe 


foto las) 


oe fe 
~wvonr 
? 


1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
1 
1 
1 
1 


1434 1467 1489* 1501 1520 


fonte oP ake) 


— 
== RN 
PISV"SLt 


WOW 
— 


Sh v100 
77° ° 


RS 


anenene 


NM OWWI0O. RODAG LARYVS 
* 


ey 


PA) me a a a ed td td ot od 
™N 
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RINE IINIDIND ORI) a8 a8 at ana a 
OO—WW00 
Leav eVVes 


; 
; 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Mo 
a 
22 
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007154 1876 18844 
1 7854 808 810+ 


1442 1468 1502 1522 1572 
1249 


1200 1226 


8954 
89 


R 


9 
10 
10 
11 
120 
125 
131 
16 


SESS 

Ree 

* SN 

*£o Nm 

RENEZEYNGS 

a NO at tat 
ane ad od ed + 


SSeReecs 
BSer8s 
FUVARESe 


17164 


3 
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woo 
on 


2139 
1478* 1519s 1567* 


957 _ 968 979 
1120 1169 


1 
1 
1 
1 
1 
1 
1 


5 
5 
3 
6 
8 
4 
7 
18 
4 
0 
2 
3 
? 
4 


— wh 
ary 
SVaQro 


AWM no 
en 


007674 


007772 


STATUS 001052 


SxSaue 
aSSee 


MmM—-SCoO 


— —4 4 —4 9 9 9 - 


* 
~~ e 
NNN 
FOALVOS 

RS 


bd ad ad ad oad ad ed ed 
AOUSWRI 
FANNOS OTP 
oN -WOOo-uM 
as 
Road at ad ad od od ed 
OME WIN OO 


001072 
001 342 
001414 


STKLIN 
S11 
ST1K 
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elojlelelelea) 
Bo 9 


NW No 


~~ es  - S 
So -[DOWWDOOO 
PSESSSSIS 
a Oe 
o-CcoO 
co 


11204 


eh 2h) 
YVIOnNwW 
st bg 


R 


NWW- oO ON 
i 


me ed ed ed =) 3 


Sue8 

2 8 z 
—-NO FSO 
z a 


: 
: 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


_— <3 3 
W@cdouWw VIW 


WOOD NNV! 
FUSESS 
ca 


3 


a 8 es od 23 ot od 


zz 
NOMONMONINY 0000-2 @ SS es 
N 
Bos 


ViMno— 
fwWwea 


¥VYS -—Oo 
Be 
— 


PIPINMNPNNNINYNIINY 2 — WO 3 S 2 3 2 2 


ee at = 3 3 od 
MONMENMPNN 
aun 


Wn & 
MmWIw 
zr 
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003610 
003644 
1293 12974 


13314 


ee ee ee ee 
WANWWG?ONONP 


8253 


2160 2168* 2169 
1526* 15278 1550* 1551* 


1549* 1553*  1800* 1803+ 


~w 
WHS OO 
mou 
S3ESS8 


> 


1746* 


NNNNNNNNNS 


REVFSSINGE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


* 


1420 
833* 1322* 1386* 


~s— FB x100000000 
Cig OF. 
¥QeR 


59 928s 944* 945* 
1594 1599* 2049 2071* 
246 950* 2045 
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CZDNAC P11 O9-MAY=78 15:36 
= 011702 


QM & 
—COO\\wW— CO 


SF 
WN-MOWN 


oO 


1342 1351 
1715@ 17174 
21914 21954 
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O9-MAY=78 15 


ERROR 7448 870 


1047 1060 
1193 1202 
1328 1448 


- ABS. 011702 000 


ERRORS DETECTED: 0 


CZDNAC .BIN, CZDNAC .LST/CRF /SOL/NL : TOC=C7DNAC.P11 
RUN-TIME: 2 4 .8 SECONDS 


RUN-TIME RATIO: 51/7=6.7 
CORE USED: 8k (15 PAGES) 





